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For a comparison, an analysis performed using an angle of internal friction of 
20° (or Ka=0.5), would be appropriate for a wall with cohesive backfill 
(Tschebotarioff, G.P. (1951). Soil Mechanics Foundation and Earth Structures. 
New York; McGraw - Hill). Furthermore, the Soils Bureau does not design 
retaining structures with cohesive backfill. However, if you are analyzing an 
existing structure with cohesive backfill an angle of internal friction not 
greater than 


20° is recommended. 
II. The Culmann Graphical Solution 


To illustrate the methodology of the Culmann analysis, an excerpt from Bowles' 
book will be presented. Following this excerpt will be a description of how 


this graphical solution was incorporated into the program GREWALL. 


The steps involved in the Culmann solution for active and passive pressure, as 


presented by J. E. Bowles in Foundation Analysis and Design, are as follows: 


1. Draw the retaining wall to any convenient scale, together with the ground line, 
location of surface irregularities, point loads, surcharges, and the base of the wall 
when the retaining wall is a cantilever type. 

2. From the point A lay off the angle ¢ with the horizontal plane, locating the line 
AC. Note that in the case of a cantilever wall, the point A is at the base of the heel, 
as shown in Fig. 11-14b. ns 
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Figure 11-14. Culmann’s solution for active earth pressure. (a) No interference with wall or footing; 
(b) cantilever retaining wall; (c) force polygon used in the Culmann graphical solution. 


_ 3. Lay off the line AD at an angle of @ with line AC. The angle @ is computed as 
O6=a-—6 | 


where a = angle back of wall makes with the horizontal 
6 = angle of wall friction 
4. Draw assumed failure wedges as ABC,, ABC,,..., ABC,,. These should be made 
utilizing the backfill surface as a guide, so that geometrical shapes such as 


triangles and rectangles are formed. 
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Figure 11-15. Force triangle used in 
Culmann’s graphical solution. The @ 
angle is constant; p is defined as the 
angle from the horizontal to the failure 
surface; therefore, with the orientation 
shown, w can be found graphically. 





5. Find the weight w, of each of the wedges by treating as triangles, trapezoids, or 
rectangles, depending on the soil stratification, water in the soil, and other condi- 
tions of geometry. | 

6. Along the line AC, plot to a convenient weight scale the wedge weights locating 


the points w,, w3, ..-, W, 
. 7. Through the points just a eaniehed (step 6), draw lines parallel to AD to intersect 
ps A to corresponding side of the triangle, as w, to side AC,, w, to side AC zw - GoW, tO 
? (lol (Ca ee | 


8. Through the locus of points pean eneee on the assumed failure wedges, draw a 
smooth curve (the Culmann line). Tangent to this curve and parallel to the line 

- .AC draw a tangent line. It may be possible to draw tangents to the curve at several 
points; if so, draw all possible tangents. 

9. Through the tangent point established in step 8, project a line back to the AC line, 
‘which is also parallel to AD. The value of this to the weight scale is P,, anda line 
through the tangent point from A is the failure surface. When several tangents are 
drawn, choose the largest value of P,. 


‘The basis for Culmann’s RLS. is the solution of the force triangle shown in 
Fig. 11-15. The triangle is rotated so that the location of the trial failure wedges 
automatically yields the angle y without recourse to measuring if éach time. The line 
AD is laid off for use in projecting the instant value of P, at the proper slope since @ is 
constant for a particular problem. The slope of R is automatically established from 
the slope of the weight line AC; thus, with all slopes and one side w, known, the force 
triangle is readily solved. 





Figure 11-17. Culmann’ s solution force polygon. which is graphically solved for passive pressure 
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III. Culmann Computer Solution 
GREWALL starts its analysis from a soil surface input by the user (see 
Figure 11-14 of Bowles or page 3 of this manual). From the line AB the 
program sweeps angles out one degree at a time to form soil wedges and 
computes its area. The line the program eens between points A and C, 
extends to the backfill surface which is input by the user. The area it 
computes is multiplied by the unit weight of the material to give a force 
per unit length of wall. For each force the program solves the force 
triangle shown Figure 11-15 (page 4) for the active pressure (Pa) or for 
passive pressure (Pp) Figure 11-17 (page 4). The program will report the 
maximum Pa and the minimum Pp that is computed from the force triangle. 
GREWALL then computes the center of gravity of the failure wedge and 
determines the point of application of the force by ert ending a line 
parallel to the failure plane, threw the center of gravity, to the wall 
surface. The force is oriented Delta (wall friction angle) degrees above 


the perpendicular of the wall. 


LN. Water Pressure 
When the user indicates that the ground water level is present above the footing 
or base elevation, the program will subtract the unit weight of water (62.4 
lb/ft?) from that portion of the failure wedge below GWL. This will reduce the 
active pressure computed and will raise the center of gravity of the failure 
wedge hence the point of application for Pa and Pp. The program will then 
report separate force quantities for fluid pressure on the wall; one acting on 
the front and one on the back of the wall. All of these forces are considered 


when computing factors of safety and footing pressures for the wall. 
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When ground water level is present above the footing elevations it is necessary 
to use the buoyant unit weight of the wall material, for that portion of 


the wall under water (see Figure 1). 


%y= UNIT WEIGHT | < 
OF WATER 





¥ cs UNIT WEIGHT OF 
WALL MATERIAL ~ 


Figure 1. GREWALL'S method of accounting for uplift forces due to water 


pressure. 


The user may find it easier to enter the wall using the total unit weight and 
then superimpose a wall of water with a unit weight of negative Sw(or-62.4 ten a IF 


Consult the section XII Example Input for illustration of this. 
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V. Concentrated Line Loads 


A. On Backfill 
When a concentrated line load is specified by the user, GREWALL will 


compute the pressure distribution acting on the wall as: 


h = 4P x? z 
TRS 
In which: 
h = horizontal unit pressure on wall at depth z- 
P = load per unit length 
x = horizontal distances from wall to line load 
R= x? + 2? 


This method was obtained from M.G. Spangler and R.L. Handy's Soil 
Engineering Fourth Edition. GREWALL computes a single resultant for the 
pressure distribution and locates the resultant at the center of area under 


the pressure curve. The resultant is acting horizontally. 
Be On the Wall 


The user may input concentrated line loads acting on the wall to analyze 
the effects of anchor or other external static forces. They are input by 
location direction and magnitude and simply added to the other forces 
acting on the wall when computing the footing pressures and factors of 
safety. GREWALL will check the sign (+ or -) and direction of each force 
and will add the resulting moment to either the overturing moment or 


resisting moment as indicated. 
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VI. Broken Back Wall 


At the users option, GREWALL will perform a modified analysis for 
retaining walls with two distinct back wall surfaces. If the wall is more 
accurately modeled as having two surfaces (see figure 2) this option 


should be used. 


ae C 
ACTUAL 
SURFACE 







MODELED 
SURFACE 


(A) 


Figure 2. Common broken back wall problems 


GREWALL will first compute forces on surface BD. It will then compute the force 
acting on the surface BC and then AC. The force on surface BA is computed last 
by subtracting BC from AC. Two forces are presented for broken back wall 


problems, one above and one below the break. 
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VII. Factors of Safety (FoS) For Overturning and Sliding 
Retaining walls must provide adequate stability against sliding and 
overturning. The passive earth pressure acting in front of the wall is 
not considered by GREWALL. This soil may erode or may be excavated thus 
eliminating this resistance to sliding. When computing the FoS for 
sliding and overturning GREWALL considers all forces acting in the system. 
T LOAD 
= 
W LOAD (type 2) 
SAIL BOAT 
LOADING 
(-) W LOAD 
(type |) 
XPAMAX \ 
} S BLOCK 7 r\ 

YPAMAX aN 

7 c \ wat 
f= Ea 
wer Fo Reo 
paeers| 
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Figure 3. Summary of forces acting in a GREWALL system. 
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The following is a summary of the forces that may act in the system followed by 


its FORTRAN name, direction and moment arm: 


FORCE DESCRIPTION FORTRAN NAME DIRECTION MOMENT ARM 
Active Soil X-Direction XPAMAX saan RESDX 
Active Soil Y-Direction YPAMAX | RESDY 
Wall and Soil Resultant SBLOCK | RXBL 
Water Force Above Toe WFL —> WFLR 
Water Force Above Heel WBL a WBLR 
°Line Load on Wall (Type 1)  WLOAD (TI) hme gel WLX (I) 
°Line Load on Wall (Type 2) WLOAD (1) { Wk be) 
Line Load on Backfill TLOAD (1) ri TLOADZ (TI) 


FACTOR OF SAFETY FOR OVERTURNING = FOSR/FOSO 

FOSO = Sum of the overturning moments 
= XPAMAX * RESDX + WBL * WBLR + WUPS * WUPM + TLOAD (I) * TLOADZ (TI) 
+ WLOAD (I) * WLX (I) 


FOSR = Sum of the resisting moments 
= YPAMAX * RESDY + SBLOCK * RXBL + WFL * WFLR + WLOAD (1) * WLX (1) 


FACTOR OF SAFETY FOR SLIDING = FOSRS * FAC/FOSS 
FAC = Coefficient of friction 


FOSRS = Sum of the Vertical Forces 
= YPAMAX + SBLOCK - WUPS + WLOAD (I) (Type 2) 


FOSS = Sum of forces in the horizontal direction 
= XPAMAX + WBL -— WFL + WLOAD (1) (Type 1) + TLOAD (1) 


°Note: If the sign of WLOAD (1) is positive its moment will be added to the 
resisting moments; if it is negative it will be added to the 
overturning moments. 
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VIII. Footing Pressures 
FOOTING PRESSURE at Toe = QT = FOSRS/BASEL * 1+ (6 * QTE) 
(BASEL ) 
FOOTING PRESSURE at Heel = QH = FOSRS/BASEL * 1 - (6 * QTE) 
(BASEL ) 
QTE = eccentricity = (BASEL/2)-(FOSR - FOSO) /FOSRS) 
BASEL = width of footing 
GREWALL may report a footing pressure that is negative. This does not mean that 
the actual pressure is negative but rather that the reaction force is located 
outside the middle third of the footing width. Generally this condition is 


considered unacceptable. To determine how much of the footing is being utilized 


assume a linear change in pressure between the toe and heel pressures. 
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Soil Properties 


PHiftee 


DELTA- 


FAC = 


Total Unit Weight of Backfill Material (pcf) 


Angle of Internal Friction eoraee i For cohesive soils PHI should 
be determined by consolidated drained tests. However, cohesive 
soils are subject to creep. Long term stable active pressure 
(called consolidated equilibrium pressure by Tschebotarioff) is 
approximately 5bh. Therefore, for cohesive soils a PHI greater 
than 20° is not recommended. For granular material use the best 


information available. 


Wall Friction Angle (degrees) - Values between .44 and .6¢ are 
considered reasonable. Values as high as .94 may be considered for 


gabion retaining walls because of the high wall-soil interaction. 


Coefficient of Friction - Tan (¢) - Used in computing factors of 
Safety for sliding. For further guidelines consult Table 1 
"Ultimate Friction Factors and Adhesion for Dissimilar Materials" 


NAVFAC DM-7.2, p. 7.2-63. 
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X. Before You Call GREWALL 


la) 


1b) 


2a) 


2b) 


Sketch the wall configuration using straight lines. Orient the wall 
such that the backfill is to the right. Establish a coordinate 
system with the toe of the wall at point (@,@); GREWALL will compute 
factors of safety for overturning by Samos tnonents about this point. 
Divide the wall into blocks of rectangles and right triangles; number 
the blocks and be prepared to par the coordinates of the blocks. If 
ground water is present, dash a line between the water elevations in 
front and in back of the wall. When entering the unit weight of the 
block below this dash line use the buoyant unit weight The coordinate 
system should be in units of feet. 

OR 
Do not include the wall configuration. GREWALL is ane ie of analyzing 
a plain surface without a wall and will report only the pressures acting 
on that plain surface. You must still sketch the backfill and plain 
surface and establish a coordinate system. All points on your sketch 
must have a positive sign. 
Model the soil or wall surface which the backfill is acting on using one 
line and label the points with their coordinates. The intersection 
between the backfill and the wall should be the first point of the 
backfill model. 

OR 
For broken back wall problems, model the wall surface using two lines 
and label the points with their coordinates. Extend the surface from 
the break point to the backfill surface as shown in figure 1 (pg. 8). 


Point (C) is now a point on backfill, number the backfill lines 


including this point. 
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OR 


Model the backfill using straight lines (limit 19) and number the lines 
from left to right. Label each point with an X and Y coordinate based 
on the established system. Be sure to extend the backfill beyond a 


probable failure plane. 


Gather the following information for input. 

a) unit weight of backfill and retaining wall material (pcf) 
b) friction angle of backfill in degrees 

c) wall friction angle in degrees (if granular backfill) 

d) coefficient of friction between the foundation and the wall 


e) static water levels above toe and heel of wall 


Some Helpful Notes on Input 


1) 


2) 


3) 


The computer system will not accept an "enter" as a (Q) input. You 


must put in 9, then "enter". 


Use decimal points only when necessary. Do not use decimals for yes or 


no answers, or for counter (number of) values. 


Use commas to separate values on an input line. Do not put a comma at the 


end of an input line, the computer will expect another value if you do. 
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XII. EXAMPLE INPUT 
The following example problem fy an illustration of what the user of 
GREWALL will see. Notes have been added to help explain the workings of 
GREWALL however these notes will not appear during the program run. 


Problem - set up as described in Before You Call GREWALL of this manual. 


2000 Ib/ft 
(20,24) 
2000 Ib /ft . ie 
(5,20) «| (18,24) 
Woes) a (7,20) 
Tt. -\@s,10) 
® !1©\— br 
Spi wal 
ve ya | \ 
te | / | 
| 
| 


vy . fh2L Eas planned, 2 eX 


eek (12,0) 
Soil Parameters: 
OU WEL RNG ces es tees fees 120 pcf 
Pore ro Ce nee ry a ol CICLO os wise oes 34 degrees 
MAUL er CeO LON ANOLE ss sac oe we eee fee 20 degrees 


Wall-Soil, coefficient of friction.. ae 
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TO RUN GREWALL - FROM THE 
MAIN MENU SELECT STRUCTURES 


MENU THEN WALL MENU THEN 





ce GREWALL. 
C>GREWALL 
OP Pa aor Ea ly a ya pen ol em ep 
/ ze, 
XeER----- ~ / 
* * WELCOME TI GREWALL A PROGRAM FOR 
* * ANALYZING GRAVITY RETAINING WALLS 
23 * WITH IRREGULARLY SHAPED BACKFILLS 
* * AND/OR CUNCENTRATED LINE LOADS 
* * ACTING ON THE BACKFILL OR WALL. 
* * , / 
* *% / 
% & yy 
= * 7. 
HEX KE / 
* ef 


WHAT TITLE DO YOU WANT ON YOUR QUTFUT? ONE LINE LIMIT 
TiO wes senile SNP 


IS THIS A BROKEN BACK. WALL PROBLEM? CONSULT USERS MANUAL FOR 
YES ENTER 1, NO ENTER @, -@ | | | BROKEN. BACK PROBLEMS 


Da YOU WANT TO CONSIDER GROUNDWATER? 
YES ENTER 1, NO ENTER @. 1 | 


DO YOU WANT TO INFUT WALL CONFIGURATION? 
Mie tM ave SPINES etc GmerN | 2F 1 


TO VINGUT THE WALL COMFIGURATION DIVIDE THE WALL INTO 
Pees UP ne Awol o AND URIGHT TRIANGLES. LABEL THE 
BLOCKS USING THE. RULLOMWMING GUIDE . 
YoU MUST ALSO BLOCK ANY SOIL SECTIONS WHICH ARE NOT /TO TAKE INTO ACCOUNT THE 
INCLUDED IN THE FRESSURE ANALYSIS. SOIL AND CONCRETE [BUOYANT FORCES, THE USER MAY 
BLOCKS CAN EE DISTINGUISHED BY THEIR UNIT WEIGHT. IF{WISH TO SUPPER IMPOSE BLOCKS 
MAILER VLS, ERESENT USE EUOYANT UNIT WEIGHT. OF WATER ante UNIT WEIGHT 
OF -62.4 (pcf). 





NOTE TAT GRE FinkSst POINT Ur A TRIANGLE” (A) 
boekl whoik, RIGHT ANGLE. 
B E oe, A 


KEGKEEEE HERE KEKE KRKERKRESE * HKEKKEKKEE 
* * KE ¥* * 
* ¥* % * * 
* ey kere * x * * * 
* * * * ; s * * 
* * x ¥ TYPE 2 x * 
¥* ; ~ * ¥* x 
KEEFER HEEH EEE E REE EEE KEKE KHK HH x 
A C: A C E 


HOW MANY BLOCKS ARE NEEDED Tl MODEL YOUR WALL’? 
LIMIT TO 2g. a 
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. THe 


IT IS ONLY NECESSARY TO INFUT THE Y-COORD OF FOINT & 


AND THE X-COORD GF POINT C. FOR THE BLOCK TYFE 
USE 1 FOR RECTANGLES AND Z FOR TRIANGLES. 

INPUT. VALUES FOR BLOCK 1 

X-COORDINATE, Y-COORDINATE OF FOINT’A B,D 
Y-COORDINATE OF POINT B 2 | 

X-COORDINATE GF POINT C 12 


ELUGCH TYEE.) UND bene TGHT SAS EES = 


INE Pe vALUES FUR ELOGE Zz 


A-COORDINATE, Y-COORDINATE OF FOINT A ee 


s) 


Y-COORDINATE OF FOINT B = 
X-COORDINATE GF FOINT C fe 


BLOCK TYPE, UNIT WEIGHT: 1,150 


INFUT VALUES FOR BLOCK 3 

A-COMRDINATE, Y-COIORDINATE Or Rui Nin ee hgh 
Y-COORDINATE DOF POINT, 5B vas) 

%- COORDINATE ieee la 12 


pega ee LIN GONE GET, 2, 15¢ 


Peet VALUES FOR BLOCK 4 
wx-COURDINATE, Y-COIORDINATE GF FOINT A | Points 


Ma IROINATE OF POINT & 19 


— 


X-COORDINATE OF FOINT C 


BLOCK TYFE, UNIT WEIGHT 2,-62.4 


INFUT VALUES FOR BLOCK 5 


X-COORDINATE, Y-COURDINATE OF FOINT A Fai! yo 


Y-COORDINATE OF PUINT B 19 
X-COMIRDINATE OF POINT C 12 


BLOCK TYPE, UNIT WEIGHT 2,-62.4 


USE THE BOUYANT UNIT WEIGHT 
FOR BLOCK NO. 1 BECAUSE IT IS 





ENTIRELY UNDER WATER. 










USE THE TOTAL UNIT WEIGHT FOR 
BLOCKS NO. 2 AND 3 BECAUSE THEY 
ARE ONLY PARTIALLY UNDER WATER. 


CORRECT BLOCKS 2 AND 3 BY 


SUBTRACTING OUT BLOCKS OF WATER 
(BLOCKS 4 AND 5) 
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us 23- a 
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WHAT IS THE WIDTH OF YOUR FOOTING? (feet) 1 hte 
Peal VERA CALARESULTANS. <<. stevia (223076 pounds 
- DISTANCE GF RESULTANT FROM TOE... 5.17 feet 


IF THESE VALUES. DO NOT LOOK REASONABLE 
THE PROGRAM WILL DISPLAY THE FORCE AND MOMENT 





ARM FOR EACH BLOCK AND. PROMPT THE USER TO 
YES ENTER 3, NO ENTER Lewes? MAKE CHANGES 


‘DO THESE VALUES LOOK REASONABLE? 


LF you HAVE ANY. CONCENTRATED LOADS ACTING ON THE 
WALL AT AN ANGLE, INPUT IT AS TWO LOADS, ONE IN THE 
HORIZONTAL AND CINE IN THE VERTICAL DIRECTIONS. 

ENTER THE TOTAL NUMBER oF LOADS, IF NONE ENTER @. 1 


HURIZONTAL LOADS ARE TYFE 1,VERTICAL ARE TYPE 2. 

INPUT THEM AS FUSITIVE FOR DOWN AND RIGHT AND NEGATIVE 
FOR UP AND LEFT. ONLY INFUT THE X-COORDINATE FOR 
VERTICAL LUADS AND Y-COMRDINATE FOR HORIZONTAL. LOADS. 


INFUT TYPE, LOAD(Ib.), X OR Y-COORDINATE FOR LOAD 1 
Z,2090,5 


- 


HOK MANY LINES DESCRIBE YOUR BACKFILL? Mee EON T sus hcv ers 


eR COMRDINATE OF FIRST’ POINT OF ice Ning 
®x-COORDINATE ,Y-Co a AES ciate . 


INFUT COORDINATE OF FIRST FOINT OF LINE “2 

X-CUORDINATE ,Y- ee 

is y <4 : ; Dye eeine SAs 
INPUT END ‘POINT OF LINE 2 ot 

- BE SURE TO EXTEND YOUR BACKFILL LINE PAST THE FAILURE PLANE 
X-COORDINATE, Y-COORDINATE . 
4007 ce 


< Ss SS i Sees, Mie abe peeps 


—vbtSs es el 
a en 


s qo 


“HOW MANY ‘CONCENTRATED LINE LOADS Do You WANT TQ 
_ CONSIDER ACTING GN YOUR BACKFILL? 
IF NONE ENTER G, thm SU ENTER! NUMEER i. 


INFUT THE MAGNITUDE OF THE LOAD AND ITS COORDINATES 
FOR LOAD NUMBER 1 

MoAD ET. Ae. 

2GGG, 205,24 


INPUT STATIC WATER LEVELS, Y-COORDINATE 
ABOVE TOES sABUVESHEED 2,19 


i Daynial you MUST INFUT THE SOIL FARAMETERS: : oe 


WHAT IS THE TOTAL UNIT WEIGHT OF YOUR BACKFILL?(pef) 126 
WHAT IS THE FRICTICGN ANGLE OF YOUR EACKFILL?(degrees) 34 
WHAT IS THE WALL FRICTION ANGLE? (degrees) 29 


i ; : : 
WHAT WALL-SOIL COEFFICIENT GF FRICTION DO YOU WANT? .55 


DO YOU WANT THE ACTIVE OR PASSIVE PRESSURE DETERMINED? =. 
_ PASSIVE CASE ENTER 1, ACTIVE CASE ENTER S.  @ cae mee 


i 7 | aah as 
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GREWALL WILL DISPLAY THE INPUT 
BEFORE EACH RUN 


i Leraless KAMPLE INPUT 


SOTL AND WALL 


FROUFERTIES: 
PRIS TLONGANGEE- UF BACKFTUDE. oo cc. cee 24.00 degrees 
ALUN WE LEH OF BACKEIUL 2.5. dec 1249.99 pocf 
Wer TANGLE ocrs coi, ya ee 2%.88 degrees 
Cerrito or Pe RICT ION Gee... leletat aman Ure eg 
Pies Ware eam te lt; DIG e ace ole ee ce se ee Fk 8 1=.84 feet 

EBACEFILL. 
CONFIGURATION: x COORDINATE Y COORDINATE 

FIRST FOINT OF LINE uf 7 a Zi , Wiss 

SECOND FOINT OF LINE 1 =. a 24.080 

FIRST POINT OF LINE cl 1S. gg 24. Biz 

SECOND FOINT GF LINE a 1G. ag - 24.80 


HEEL YOR WHE WAL ie. eee ed wey Lies, SH Gi. Bei 
Execution suspended = FRESS@ENTER.-TO CONTINUE 


EXECUTION IS SUSPENDED TO ALLOW 


THE USER TO EXAMIN THE ENTIRE 
INPUT ON THE SCREEN. 





CONCENTRATED 
LINE LOADS 
ON BACKFILL: me 
LOAD NO. FORCE(pounds? X-COORDINATE Y-COORDINATE 
1 ‘2000 . DD 28 . OD 24.9 
CONCENTRATED 
LINE LOADS 
ON WALL: ; 
i LOAD NO. eee FORCE pounds ) MOMENT ARM( feet) 
ui Fa 2DDOD . OO 5.@© 
WATER 
ELEVATION: 
WALSH BLEVATION ABOVE HEELS ois 26 19.9@ feet 
Wet Gro icy Ae NM Vion TCE ree te Beet. a ace 2.96 feet 


DO YOU WANT TO USE THIS INPUT OR MAKE CHANGES? 
Cooker Eh nk 2) RUN Sin ioe Ne Uy? ENTER @. 4) 






IF ANY OF YOUR INPUT IS WRONG 
ENTER 1 HERE. THE PROGRAM WIL 
PROMPT YOU TO MAKE CHANGES. 
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Yo! os ere JdaH avOas: worravesa ALTA 


F a2. jOT SVOGA WOITAVEIS SHTAW 
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orion a anaemia en ee wit é 
MOMW 2I TVIML HUOY FO YHA FT 


ive sana aes -3A9H | BXTWZ] - 
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clearence eet Ee ee MN lial 


THE MOMENT ARM IS THE DISTANCE 
FROM THE ORIGIN (0,0) 


SUMMARY CGF 
FORCES AND : Hy els 
MOMENT ARMS: wi | Si bw 
3 FORCE (pounds) MOMENT ARM( feet) 
ACTIVE SOIL X-DIRECTICN S474, 7.96 
ACTIVE SOIL Y-DIRECTION E7a7. 19.91 
WALL AND SCIL RESULTANT 22307. | 5.17 
WATER FORCE ABOVE TOE 62. O.8T 
WATER FORCE ABOVE HEEL siz. “13.32 
LOAD NO. 1 (EACKFILL) TUT. | 13/305 
LOAD NO. 1 TYPE 2 (UN WALL) FADD Boe 
FACTORS oF 
SAFETY: 
CVERTURNING 2 aa 
SLIDING re egal 
FOOTING 
FRESSURES : ; 
AT SOE E455. FSF _ | WHEN THE HEEL PRESSURE IS NEGATIVE 
AT HEEL -&47. FSF THE RESULTANT IS OUTSIDE THE MIDDLE 
THIRD OF THE FOOTING. THIS IS 
WOULD YOU LIKE A HARD COFY OF YOUR RESULTS? GENERAL UNACCEPTABLE. TRY CHANGING 





TE SeENe Er ois. NG pleat ke tgs as THE LOAD ON THE WALL TO CORRECT -THIS. 


DO YOU WANT TO CHANGE ‘YOUR INPUT "AND RERUN? 
YES ENTER I EN Lee ea, 1 


WHAT WOULD YoU LIKE To “CHANGE? es 


Oa a A ne Sa tsi en eae saw se : 
ote PAs, UR ACTIVE/FPASSIVE’ CASE... ..2 
tet en Pe ULNU SENN AOL LAIN woe) ni’sceleiaiw oo) 6 eilejn es s/s sac 
GUMCEMERATED LINEVEBADS ON RAGE TE ee scorers 4 
Mitr OM POUR AT TM Sits =o sos w alatnle sc c's Mia ater ooo a 
ConcCeMTRATED LINE E@ADS DON “WALL Wa. 2%. erases & 
Rete VEL Sy aves sete se ai = se wleie ses opala «6 as iam 
ENTER THE NUMBER CORRESPONDING TO DESIRED CHANGE. & 


IF YOU HAVE ANY "CONCENTRATED LOADS ACTING .ON THE 
WALLIJAT AN ANGLE, INPUT) Id (AS TWO EBADS,” GONE. IN THE 
HORIZONTAL AND ONE IN THE VERTICAL DIRECTIONS. 

ENTER THE TOTAL NUMBER OF LOADS, IF NONE ENTER @. fas 


HORIZONTAL LOADS ARE TYFE LA VERFICAL ARE TYFE: =. 

INFUT THEM AS FUSITIVE FOR DOWN AND RIGHT AND. NEGATIVE 
Pen AND LEP T.. GNEY ANPUT THE A-COORDINA TRE FOR 
VERTICAL LUADS AND Y-COORDINATE FOR HORIZONTAL LOADS. 







a) TYFE, LOAD(Ib.), % CR Y-COWRDINATE FOR LCIAD 1ftry A 4000 POUND/FT. 


3749 ,5 LOAD ACTING 10 FROM THE 


| VERTICAL. 
INFUT TYFE, LOAD(Ib.), X GR Y-COWRDINATE FOR LOAD 2 
1,780 ,20 


tA, : 7 
mF abet icanignananee 
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THE PROGRAM WILL 





_ | AFTER EACH CHANGE TO BE CHECKED BY THE 


USER. 


oie. SE AAMr LE “INPUT 


SOIL AND WALL 


FROPERTIES: : 
PR Gi oneANGEE OF PACKRIMI I) 2... ee 34.99 
TOTAL UNIT WEIGHT OF BACKFILL....... 129.99 
PIRI C PEON ANGLE. 2 SM sis c+ so a's 29.99 
COEFFICIENT OF FRICTION.......+:. ‘ee B.55 
WPDTHECE*EBUTING. «2... Bs 4s Se eaere 12.99 
BACKFILL 
CONFIGURATION: X COORDINATE Y CUMRDINATE 
: FIRST POINT GF LINE 1 7.GG 2H GD 
SECOND FOINT GF LINE 1 1S.99 24.90 
FIRST PUINT OF LINE Zz 3.09 £4.49 
SECUND FUINT OF LINE 2Z 199. GG 24.86 
HEEL OF THE WALL 12.90 D .GD 
Execution suspended =: PRESS ENTER TO CONTINUE 
CUOINCENTRATED e Mii shear 
LINE LOADS Se, aeons Z 
GN BACKFILL: a key we Pes Bit 
LOAD NO. FORCE(pounds) -: X-COORDINATE 
x ZI. 9G 29.96 
. CONCENTRATED ; 
LINE LOADS 
ON WALL: 
LOAD NO. TYPE : FORCE(poaunds)  #$MOMENT A 
1 re 3949.99 
te 1 TID. GH 
. WATER 
ELEVATION: 
. .,°WATER ELEVATION ABOVE HEEL........- 19/98 
WATER ELEVATION ABOVE TOE........+-. 2.908 


Beco nticeolENTER GD, 


DO YOU WANT TO USE THIS INPUT OR MAKE CHANGES? 
ROS. Nt meON (nee eae coe 2 ae 





DISPLAY THE INPUT 





degrees 
pcef 
dejrees 


feet 


Y-COMRD INATE 
24.09 


RM( feet) 
5.20 
25.50 © 


feet 
feet 
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SUMMARY OF 
FORCES AND 
MOMENT ARMS: i : | 
FORCE (pounds). MOMENT ARM( feet) 


ACTIVE SOIL X-DIRECTION S494. 7.96 
ACTIVE SOIL Y-DIRECTION E737. | 15.014 
WALL AND SOIL RESULTANT Z2S07 . shee 
WATER FORCE ABOVE TOE Toe) G.a7 
WATER FORCE ABOVE HEEL S12. 3.33 
LOAD NO. 1 (BACKFILL) TOT. | 12.35 
LOAD NO. 1 TYPE Z (ON WALL) een.) 5. Ge 
LOAD NO. 2 TYFE 1 (ON WALL) THB. ZH. OY 
FACTORS OF 
SAFETY: 
CVERTURNING 2.64 
SLIDING _ 2201 
FOOTING 
FRESSURES : NaS te Aenea 
AT TOE. pi, i tes 114.° PSF. 
AT HEEL a 172° PSE: 


WOULD YQU LIKE A HARD CUR yor ve UR easuee 
MEoweEMGpR el, NO ENTER 2. 1 


THE RESULTS LOOK GOOD SO GET A HARD 


__-|-COPY. SET. THE PRINTER TO ‘THE TOP. OF A 
his NEW PAGE. et cae hay 





babii yer nna - matyoaara- x 1108 Bvt 17 
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oa! evs nigh ‘ ~- WOTTOaALO-Y J108 SVITS 

re | ~. . TReSs \ TWAT JueRA J102— Al : 
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>. Sts Sar BVOSA 3 2OR0R 78 


Set ~YST ' t20 MiOAG) t OM GA 5 
Boh, APRE (aa PS Barr t — 
2. 8S BBV Ge: cauial “ar 2 S9yT 3.0” GAG. 


AUTARVO 
Wijie 


aT JvUesA 


A ars toe 
2 0 ‘=m 


Tate SESAMPCE INPUT 


| SOIL AND WALL 
| PROPERTIES: ra bid 
FRICTION ANGLE OF BACKFILL.... 
TOTAL UNIT WEIGHT GF BACKFILL. 
WALL FRICTION ANGLE......-.-6 
CORPPICIENT OF (FRICTION. .in'-<'s « 


Md Dae Ores Pesci DGS iecaca le eibata tr ae 
BACKEIEL. | 
CONFIGURATION: *% COORDINATE 
Pino fue OF LINE i) 7 
SECOND POINT Gr LINE 1 12.09 
Breen) PUINT OF (LINE = aie 450) 
SECOND FOINT OF LINE Z 1G. BY 
Peco snk WALL 12.99 
BACKFILL FAILURE POINT ots ee 
CONCENTRATED 
LINE LOADS 


OM Sinai d a Ee eM ne en 
LOAD NO. FORCE (pounds) 


34.49 degrees 

129.09 pcf 

29.90 degrees 
9.55 

12.9608 feet 


Y COMRDINATE 
295 G9 











24.09 

24.00 

FA. GUS TO COMPLETE YOUR SKETCH OF 
Bae THE PROGRAM DRAW A LINE 


FROM THE HEEL TO THIS POINT. 
THIS IS YOUR ANALYSED 
FAILURE PLAIN. 


ZA. UG <G 


K-COMIRDINATE Y-COORDINATE 
i ZIG. OO . =O. 8G 24.09 
CCOINCENTRATED 
LINE LOADS 
CN WALL: 
LOAD NO. “Yi daiz FORCE (pounds ) MOMENT ARM( feet) 
1 AE . S745 .Ga 5. gD 
oe 1 THB. OB 2H. OS 
WATER 
ELEVATICN: 
MAO Ree LEY AT ON BARONY Eee eevetatatsts at 19.908 feet 
HATER GELCE VATION AGOVE SI UE. sss sss © « 2.98 feet 
SUMMARY OF 
FORCES AND 


MOMENT ARMS: 


AGhIVE. SOIL AS-DIRECT LGN 


e494. 
ACTIVE SOIL Y-DIRECTION 5Ts7. 
WALL AND SOIL RESULTANT ZANT . 
WATER FORCE ABOVE TUE G2: 
WATER FORCE ABOVE HEEL Siz. 
LOAD NO. 1 (BACKFILL) (gor ie 
LOAD NO. 1 TYFE Z (CN WALL) S740. 
LOAD NO. 2 TYFE 1 (UN WALL) THB. 
| FACTORS OF 
, SAFETY: 
CVERTURNING 2264 = 
SLIDING - 7.91 
FOOTING 
: PRESSURES : 
BAt TUR Se) %, Sold. PSF oo... 


Cs r _ 


“— / 
=~ 


“AT HEEL Si 17. PSF 





FORCE (pounds ) 


MOMENT ARM( feet) 

{nee 

1a. ai 

eee A: 

O.87 

<< ee e 
13.35 

E.G 
25.090 © 
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XIII. FORTRAN LISTING 
The following listing of GREWALL was compiled on January 19, 1987. Any 


changes made to the program should be noted on the master copy of this 


publication held in the drafting section of the Soil Mechanics Bureau. 


















4 “a 
pes 
ry 
patter t. AAZTS 10% 
10 7 
= hi wr La ' . 
voA .V8@! ,@f vraumsl oo fellqeos eaw TUANIED tog gertannanst 
' | a f > 
0 Fig 
itdy to Yqoo tagnam ec? oo be si, od d bluote re HOR > aids Ba id Z 2 
-usstu# galnetiosM Sloe ota Yo no tome ea atath ody ot morseokidu or 
os oe 
5 . 
; = 
ya oe ee 
j \ tS ¢ _ 7 
, a 
We) - 
a ( Twas ay eg ae 


De 


EEK EEEEH EH HK LEE EHH HENKEL EEE ERASER EIN 
FROGRAM GREWALL 
SEEGER IIIT IRI IE 


> THIS MAIN SECTION OF THE FROGRAM CONTROLS Tmt ALONG OP othe 
meer Ad LUNAL) SUBROUTINES. IT COMPUTES THE PRESSURES DUE TO 

>» STATIC WATER CONDITIONS AND CONCENTRATED LINE LOADS IF SPECIFIED 
mean DETERMINES THE FACTORS OF SAFETY FOR OVERTURNING AND SILIDEING 


COMMON X(18,2),YC1B,2) ,Z(15,2) ,XCG(2H) , YCG (2G) ,XOC1H), YOCIS) 
+ PACLOO) ,XLC1), YL(18) ,AR (28) ,LOAD(1@),xSS,YSS 
+,XSTART,YSTART, XTOF, YTOR, GI, ALPHA, FHI ,DELTA,FAC, SELOCK 
+, IWATER, WEACKE,NOL,NOCL, LA, IF, LN, PAM,  RHCIM % RESDX »RESDY, NCL. 
+. BAS SEL ,NTY PECR), WLOAD(S), MIL eae NCH, FXEL, RXEL COX, CGY 

CHARACTER*#4@ TITLE | 

REAL LAD 

DIMENSION TLOAD (2) , TLOADZ (20) , BLOCK (ZB) , MEL (20), ¥S(2,2),YS(2,2) 

+, XTLOAD (28) , YTLOAD (2) , TLOADY (29) 

WRITECS, 3) 

FORMATC LX, 





a FD dag igen Mee De mae 2 EOS NT eal ae ea locale oe al a cere ea 
“to ial if / Spt pds 
os ee ere / uv A ame ee 
+ * oy WELCOME Vil GREWALL A PHOGRAM FOR',/7, 1%, 
ae % * ANALYZING GRAVITY RETAINING WALLS',/,1%, 
+ % * Witte (IRREGULAR YNSHAPED GACKFILILS', 4,14, 
cs % % AND/OR CONCENTRATED LINE LOADS A ae Pe 
a % % ACE DNS IN THe BACHE ILI Ort WALL, 7, LA, 
7 % *% / pie ee BS 
Se % % ; gare xe 
a | % % / eg A idee 
oy % % / pe Merwe 
“ ! E i HHH  / sore a 
+» ie cm ee es 
| BREAK ERER KHMER REERE KERR R ERE / ore 


oy 


CG DEFINE FROGLEM AND CALL WALL FRUGRAM 
C: 


WRITE(4,*) WHAT TITLE DO YOU WANT ON YOUR GUTPUT? GONE LINE LIMIT! 
WRITE(G,*)' TITLE: | 
READ(S,71) TITLE 
71  FORMAT(A) 
WRITE(4,%)'IS THIS A BROKEN BACK WALL PROBLEM? ' 
WRITE(4&,#)' YES ENTER 1, NO ENTER @, 
READ(S,*) IEE 
WRITE(4,*)'DO YOU WANT TO CONSIDER GROUNDWATER? 
WRITE(4,*)' YES ENTER i, NO ENTER @. 
READ (Fi, *) IMATER 
WRITE(4,%)'DO YOU WANT TO INPUT WALL COINFIGURATICN? | 
WRITE(&,*)' YES ENTER i, NO ENTER @. 
READ(R,*) IWALL 
IF(IWALL.EQ.1) CALL WALL 
CONT INUE 
WRITE(4,*) 'HOM MANY LINES DESCRIBE YOUR BACKFILL? LIMIT TO 15 
READ(S,*) NOL 
IF(NOL.GT.AIS)WRITE(4, 
IF(NOL.GT.18)G0 To 73 
NOILC=NOL+41 
pO 18 LN=1,NOLG 
IF (LN.EQ.NOLC)WRITE(4,21) NOL 
#1 FORMAT(1¥,'INFUT END POINT CF LINE ',13,/,1x 
+,'BE SURE TO EXTEND YOUR BACKFILL LINE PAST THE FAILURE FLANE' 


~ 
mo 


*) 'SORRY NO MORE THAN 15 TRY AGAIN' 








IF(LN.EQ.NOLG)GO To 2 


r WRITE(&,4) LN 

C 

C INPUT BACEKFILL CONFIGURATION 

i 4 FORMAT (IX, ‘INPUT COORDINATE OF FIRST FOINT OF LINE',I% 
+,/,' X-COORDINATE ,Y-COURDINATE  ',/) 


22 CONTINUE 
READ(S,*) XT,YT 
X(LN,1)=xT 
Y(LN,1)=YT 
XTOPSK (1,1) 
YTOP=Y(1,1) 
IF(LN.LE.1)GO To 2¢ 
X(LN-1,2)=X(LN,1) 
q Y(LN-1,2)=Y(LN, 1) 
: Z(LN-1,2)=YC(LN-1,2) 
28 CONTINUE 
Z(LN,1)=YC(LN,1) 
ig@ CONTINUE 





C 
( INFUT BACKMWALL SHAFE FOR BROKENGACK FROBLEM 
C: 


WRITE (S&,*#) 'INFUT COORDINATES OF EREAK FOINT,, 
WRITE(G&,#)' X-COORDINATE, Y-COOMRDINATE ; 
READE SV ARS PART NSTART 
st CONT INUE 
| WRITE(G,*) 'INFUT COORDINATES OF HEEL OF WALL. } 
| WRITE (&,#)' K-COORDINATE, Y-COORDINATE : 
READCE,*) KSTART, YSTART 
FRC NCHEEOE AIG TO oY 
car CONTINUE 


| IF CIGEOLE SO) GUE THM SY 


.. 
© CHECK FOR CONCENTRATED LINE LOADS AND INFUT 
C: 


WRITE(&,%) ‘CONSIDER ACTING GN YOUR BACKFILL? | 
WRITE(4,%)' IF NONE ENTER @, IF SQ ENTER NUMBER 
READ (ES, *) NOCL 
IF (NOCL.GT.1@)WRITE(4,%*%) ‘SORRY NO MORE THAN 1, TRY AGAIN! 
IF(NOCL.GT.18)GO To #7 
IF(NOCL.LE.@)G0 To 4@ 
Diy ss) J=1 , NCL 
WRITE(G,4)J 
& FORMAT (1X, ' INPUT THE MAGNITUDE OF THE LOAD AND ITS COGRDINATES',/, 

+1¥,'FOR LOAD NUMBER ',I3,/,' LOAD , X-, Y-',/) 

- READ(S,*)LOADF, XLF, YLE 
LOAD (J) =LOADP 


{ ¥L (J) =¥LE 
YL(J)=YLE 


4 WRITECG,#) 'HOW MANY CONCENTRATED LINE LOADS Do YOU WANT To! 


MMC J SKL CI) 
YOCJ)=YLCJ) 

oS CONTINUE. 

475 CONT IT NUE: 
IF (NCH.EQ.4)G0 TO vY 


IFCIWATER.EQ.@)GO TO 41 
| WRITE(4,*) INPUT STATIC WATER LEVELS, Y~-COORDINATE! 
WRITE(G,*) ‘ABOVE TOE, ABOVE HEEL ' 
READ(S,%*) WERONT, WEACK 
H FLY=WFRONT-YSTART 


BLY=WGEACK ~YS TART 


41 CONTINUE 
ar nl ha a igi te hs aA A aA A” yk eS © ai Sania Te RSRETD. eS iPER a ASAE! Cone S 8 ARS PN dl OR Rte Rare Alec A ler roa ae TG a acta ee a 


—, 
t 


ii 


Az 


a1 


cee 


ih 


a 


mt 


on we 
at wo 


i oT os 


r, 
i 


ee 


IP (NCHLEO.7)GC 


WRITEC&,#) NOW YOU 


WRITE(A,*#)' 
WRITE(&,#) ‘WHAT 
READ(S,*) GI 
WRITE (&,#) ‘WHAT 
READ(S,#)FHI 
WRITE(&,#) ‘WHAT 
READ(S,%*) DELTA 
WRITE(G,*) ‘WHAT 
READ(S,*) FAC 
WRITE(S,*)' ' 


WRITECG,#)' DO YOU WANT THE ACTIVE 
FASSIVE 


WRITE (A, *)! 
READ(S,*) TAIF 


Cae CONT TINUE 
NCH = @ 
a 
f DISFLAY INFUT AND ¢ 


WRITE(G,&) TITLE, 


FORMAT (7/7 yx 
+f L4kK r) 
+/14X, 
cat 

/14%, 
pene ey ak 

FORMAT CLA, (AID 

WRITE C&, 44) 

FORMAT (/ ,2%, 
* Y COORDINA 

Do 42 T=1,NOL 

WRITECG, 45) 70, KC 

FCIRMAT (2%, ‘FIRS 

WRITE CG, 45) 0,4 ¢ 


aT 
VERICTICN 
"TOTAL UNI 
WALL FRIC 


Waser PICIeN heir FRICTION 


To 


2 = 


INFUT SOIL FARAMITERS 


MUST LNFUb THE SULL PARAMETERS: * 


IS THE TOTAL UNIT WEIGHT OF YOUR GACKFILL?(pcf) if, 
Po@ere FRIGLION ANGLE OF YOUR BACKFILL? (degrees) 
I5 THE WALL FRICTION ANGLEY (degrees) 


WALL -~SOTL EOEPRIGIERNT OF FRICTION DO YOU WANT? 


GR FASSIVE PRESSURE epehRgI Ec 


CASE ENTER 1, ACTIVE CASE ENTER @. 
HECK FOR CHANGES 
FHI,GI1,DELTA,FAC 
1TLE: ',A,///,1%,'SOIL AND WALL! /' PROPERTIES: ' 
ARGUE OF PACKEIUL tame. ce »FS.2,' degrees’ 
T WEIGHT OF BACKFILL. «eee es oct! 
ONO ANGLE © oa. sales s apts ee | FS.2,' degrees’ 
pl sees 2) Opec Oe 


WRITE (4,8) BASEL Lae 
heey 


Ti UP PET DING Ss a Po Sieietale wis wets sis feet’) 
eoAGrr Tu, 7 3) CONRZEURAT DON’ * COORDINATE 


a See) 


lore CT 10 
T POINT OF LINE 


,13,5%,Fe.2,5%,FS.2) 
ee Ye) ; 


FORMAT (24, ‘SECOND POINT OF LINE ',13,5%,FS.2,5%,FS.2) - 

CONTINUE 

WRITE (4,518) XSTART, YSTART 

FORMAT (2%, ‘HEEL OF THE WALL 1 ,8¢,FS.2,8%,FS.2) 

IF (IBE.EQ.1)WRITE(4,S11)XSTARI,YSTARI 

FORMAT (24, BREAK POINT OF THE WALL',4X%,FS.2,8X,F8.2) 

PAUSE 'FRESS ENTER Td CONTINUE! 

IF(NOCL.LE.@)G0 To &1 

WRITE(G,9) 

Mea gee eRe Gr VINE LOADS',/,1%,' ON BACKFILL: 
»/, 16%, LOAD NO.', 2%, FORCE (pounds) ',&%,'X-COORDINATE ', 


Y= CUURDINATE ' 
DO &@ T=1,NOCL 


a a aes PAD? yas io), 


FORMAT CLE 
CONT TINUE 
CONT I NUE 
pa te 8 el De 
WRITE (&,2) 
FORMAT (/ ,ZanK, 
a yes Lone 

po BS T=1,NCL. 


A pelec, 
¥ y 


WRITE (&,39)1,NTYFE(T) 
FORMAT(1SX,13,7%,1Z,8X,FS.2, 


CONT INUE 
CON T I NUE 
IF (IWATER.LE.@) 
WRITE( EG, 12 


ECOMGENTRAHED, 57 
LOAD Nil. 


) 


YuUCT ) 
a Gh prete aaa DOA es. chy i Naito «ed 


Gone hticl .BERe ew To oe 


As 
¥ tat ZN 9 


FORCE (pounds) 


‘EINE (LOADS * J7, in, MIN WALL s ' 


Tir & MOMENT ARM( feet) ') 


~WLOAD(I) WLXCT) 
12X,FS.2) 


SEY Bi ye 


o oN el 





12 - FORMAT(1X,/,' WATER'/,4%, ‘ELEVATION: '- 

+,/,15%, WATER ELEVATION ABOVE HEEL.......-- ' Fe 
+,/,15%,'WATER ELEVATION ABOVE TOE. ssa eaees ' FS.2,' feet’) 

61 CONTINUE 
WRITE(4&, 13) 

13 FORMAT(//,1X,'DO YOU WANT TO USE THIS INFUT OR MAKE CHANGES?" ) 
WRITE(4S,*)' CHANGES ENTER 1, RUN THIS INFUT ENTER @. 
READ (FR, *)MCH 
IF(MCH.LE.@)GO To ég 

729 CONTINUE 
WRITE(4,*) WHAT WOULD YOU LIKE TO CHANGE?! 

NRITE (Gee ACT. CONELG. .7.0 COMPICE UPPER RGKEN ACH 1! 
WRITE(&,*)' SOIL PARAMETERS, OR ACTIVE/PASSIVE CASE....2 
WRGEER S508 AAC HEUUN CONFIGURATION. él c.scccececce cs ec3 
WRITE(S,%*)' CONCENTRATED LINE LOADS ON BACKFILL....eeee 4 
Ce Eee HALLO CONFIGUBATION. «ole ses c ee eae even wnes ewe 5! 
WRITE(,*)' CONCENTRATED LINE LOADS ON WALL.«..s.esseees &! 
WRITE(S,*)' WATER LEVELS. .sseseeeeeeeeeeeeeseeeeeenneas jo duas. 
WRITES, #) he 
WRITE(4,*)' ENTER THE NUMBER CORRESPONDING TO DESIRED CHANGE. 
READ(S,*)NCH 7 

BAT CONTINUE 

IF (NCH. EQ.1)WRITE(4,%) ‘INPUT NEW TITLE ' 
IF (NCH. EQ. 1)READ(S, 71) TITLE 
IF(NCH.EGQ.1)G0 To 99 

IF(NCH.EQ.2)G0 To 44 
IF(NCH.EO.3)G0 To 96 
IF(NCH.EQ.4)G0 To 97 
IF (NCH.EQ. 5) IWALL=1 


Pris NCW. EG, 2) RL NCHVEC G2 O0CALL WALL 


TRAA NCH. ED.) SOR A NCHVEE 8) Gly TOs Oe 
Raves wii eee) WELD YOU LIke TO CUNSIDER WATERY ' 
Dra CrMs i. wo WERE YES ENTER: 1, NO ENTER) @ 
TRANCHE. (READS, #4) IWATER 
IP (NCH. EU. 7 .AND.IWATER.EQ.1)G0 TO 4¢ 
MeINCH, Pow 1G TR vy 

Efd CONTINUE 
IFCIAIP.LE.@)TA=1 
lrerecLaies. GE. tf) LR 
LOR OP Leh S TART 3 AL=ATANCCYTOFP-YSTART) / CASTART-ATOPF) > 
TPURTOUP LEO NSTARTY AL=1.,579 
TPR TOR GT. KS TART) ALSS. L141 89° 3-ATANCCYTOR-YSTART) /(XTORP-XSTART ) ) 
ALFHA=AL#O7. 2755 


(¢ CHECK IF FROELEM HAS A BROKEN BACK 


TIERS ELiee GO TU 66 


XSTARTS=XSTART 

YSTARTS=YSTART 

XSTART=XKSTARL 

YSTART=YSTARI 

IF (YSTART.GT.WEACK.AND.IWATER.EQ. 1) IWAT=IWATER 

IF (YSTART.GT.WEACK. AND. IWATER.EQ.1)IWATER=@ 

IF (CATORP. reat ahe: AL=ATANCCYTOFP-YSTART) /CASTART~XTOF ) ) 

sli pied iyeleatate XSTART ) AL=1,.570 

IF (KTOP. GT. XSTART) ALHS. L416 3-ATANC CYTOFR-YSTART) / CATOR-ASTART ) ) 
ALPHA= AL*57 .2755 
ADELTA= DELTA- ~ALPHAT20. 


C COMPUTE FPRESURE ABOVE BREAK 
CALL ACTFAS 


PAMAXL=FAMAX 
EE EET LETS LO PEE TE Te SR ae nl en ne nee Le ee ee a nn te ea 


PAMAX=4. 
ADELTAL=ADELTA/E? .2755 
YFAMAXL=SINCADELTAL) FP AMAKL 
XPAMAKL=COSCADELTAL) #FPAMAX1 





CALL CGCMAN 


RESDX1=RESDX 
RESDY1=RESDY 
saa CONTINUE 
Cc 
C INCRIMENT THE BACKFILL CONFIG. TO COMPUTE URFFER BPOKEN BACK 


> SAVE FIRST LINE FOR RERUN 
XS (1,2)=X(1,2) 
MS(1,1)=%(1,1) 
YS(1,2)=¥(1 52) 
 ¥SUIINSYC1, 1) 
DO S57 I=1,NGL-1 
MCT, 1}=4(I+i,1) 
Y(L,1=¥¢141,1) 
MCL, 2)=¢(14+1,2) 
Y(L,Z)2V(I4+1,2) 
Belay yey (0 «id 
Z(0T,2)2Vt1,2) 
S57 CONTINUE 
XTOP= (1,1) 
YTORSY (1,1) 
IF (XTOP.LT.XSTART) AL=ATAN( (YTOF'-YSTART) / (XSTART-XTOF) ) 
IE (XTOP.EQ.XSTART) = AL =1.570 
a IF (MTOR .GT.MSTART)  AL#S. 141. 593-ATAN( (YTOR-YSTART) / (XTOP-XSTART)) 
ALPHASAL#S7 . 2955 
| ADELTA=DELTA-ALPHA+?@. 
NOL =NOL 1 


CALL ACTFAS 


FAMAXZ=FAMAX 

FAMAK=@. 

| ADELTAZ=ADELTA/S7 W278 

| YFAMAKZ=SIN(ADELTAZ) #F AMAKE 
MPAMAMS=COS (ADELTAZ) *PFAMAKE 


CALL CGCMAN 


C3 


RESDX==RESDX 

| RESDYZ=RESDY 

; MSTART=XSTARTS: 
YSTART=YSTARTS 

| IF (MTOP.LT.MSTART)  AL=ATAN( (YTORF'-YSTART) / (XSTART-XTOF) ) 
IF(XTOF.EG..MSTART) ALL. 57 ama 
IF (MTOP.GT.XMSTART) AL=3.1457-ATAN( (YTOP-YSTART) / (XTOF-MSTART) ) 
ALFHA=AL#57. 2758 

| ADELTA=DELTA-ALFHA+?9. 
IF CIWAT.EQ. 1) IWATER=1 


ie 
| © COMPOTE PRESSURE ON FULL WALL OP BROKEN EGACK FPROGLEM 
[; 
C 
CALL ACTFAS 
[ CALL CGCMAN 
C 


ADELTA=ADELTA/E 7.275 

YPAMAXK=SINCADELTA) *F AMA 

XFAMAX=COS (ADELTA) FP AMA 

RES X= (XKPAMAK*#RESDX-KFAMAKE#RESDXE) / OXFAMAK-XPAMAKE 








RESDY= (YPAMAX*RESDY-YFAMA 
YEAMAM=YPAMAM—~YEAMAXMS 
ME AMAM=<FAMAM-XPAMAME 


MEXxRESDYE) / (YPAMAM 








REPLACE FIRST LINE TO ORIGINAL FOR RERUN 


NCIL=NCL+4 

DO 1 T=2, NOL 
MCI4d) =KCT=S45 19 
M(L,20=KCI=152) 
Y¥(I,i)=¥(I-1,1) 
Y(IL,2)=¥(I-1,2) 
CONT INUE 
MC1,1)=éS(1,1) 
Y¥(i,1)=YS(1,1) 
MC1,2)=xS(1,2) 
Y¥(1,2)=YS(1,2) 
XTOPSX% (1,1) 
YTORP=Y(1,1) 
CONT INUE 
IF(IBE.EQ.1)G0 To 77 


CALL ACTFAS 

CALL CGCKAN 
ADELTA=(DELTA-ALPHAt+?@.)/E 7.2755 
YFAMAK=SINCADELTA) #FPAMAX 


MEAMAM=COS (ADELTA) *PAMAX 
| 77 CONTINUE 
( 





~ COMPUTE WATER FRESURE AND UPLIFT 


( 

| ‘* 

j IF(IWATER.EW.@)G0 TO S42 

; Gasaz . 4 
WEL . Be (WF RONT-YSTART ) #Gh 

i WEL=. Ge (AGACK-YSTART )#Gu 
WELR= ( (AIFRONT-YSTART) /2.) 
WELR= ( (AGACK-YSTART) /3.) 

j WELY=YSTART+AFLA 
WELY=YSTART+H ELF 

Baz CONTINUE 
] ADELTA=DELTA+?@.~-ALFPHA 


¢ COMPUTE FRESURE DISTRIBUTION DUE TO CONCENTRATED 


| IF(NOCL.EC.@)G0 To 98a 
A=, 
SH=a, 
 GHZ=G, 
| =a. 
\ Fag, 
909 CONTINUE 
i DO 91M T=1,NOCL. 
F=YL(1)-YTOrF 
G=éL 1) -xTOF 
| IF ((XTOP-MSTART) .EC.@) S=G.@ 
= IF ((MTOP-MSTART).EQ.8) GO To 925 
S=(YTOP-YSTART) / (XTOF-XSTART) 
i 925 CONTINUE 
A=A+1. 
IF(A.EQ.1.9G0 TO 915 
M=+5 


| F=P+i1. 
7 9718 R= (eee + PRE) #e LE 
H=4*#L OAD CT) ¥(M## 2) #F/ 03, 145 7% (Re e4) D 


“YP AMAKE 


iNee LOAD 








HZ=H*¥(YL(1I)-F) 
SH=SH+H 
SHZ=SHZ+HZ 
MCC YECE Par Tea . tala aie he wat 
ATDELTA=(7@.-ALFHA)/E7 275 
TLOADC TI =(SH/A) *#(YTOR- -YSTART) 
ATLOADCTI)=TLOADC TU #COSCATDELTA) 
YTLOADCTO=TLOADCTIO*¥SINCATDELTA) 
TLOADZ(T)=SHZ/SH 
AL.=ATANCALFPHA/E 7. SVE ) 
TLOADY (1) =(XSTART+#( (TLOADZ(1)-YSTART) #AL)) 
A=, 
718 CONTINUE 
S758 CONTINUE 
Rs 
P DISPEAY LA SUMMARY MF THE FORCES AND THEIR MOMENT ARMS 


iT} 


WA PVESo yar? 
a Poni Peery  eSUMMARY “Urs Aye (FORCES AND’ ,/,2%,° MOMENT ARPS: ' 
+,/y24k, FORCE Comunds)',19K,'MOMENT ARM( feet) ') 
Deut se ele LI WRT Pe Se, e)" ABCIVE BREAK 2! 
ee ree ie Rep eat BESDY 1 
ewes cia Mind Peo, eo BELOW GREAK: 
IFCTAIF.LE.@) WRITE (CG, 25) XPAMAK, RESDXK, YPAMAXK, RESDY 
1 (LTALP.GE.1)WRITE(&, 22) MPAMAM, RESDX, YPAMAX, RESDY 
EF EWA EVENT OWADTE Co est OEOOCE , RXEL 
J Fh eHATER eRe IOWA ITEto, So) WEL WPELA,WEL ,WELAR 
Pet nuclibns eral TH se 
DiassilyT=1 ; NOC 
| WA te Coe ee? DE TLOAD UTS Pt LUADE< 19 
Bch CONTINUE 
ne CONT TINUE 
iP ANCL A LES er GOTO S4 
gq pO SSet1=1T NCL 
Areoco oyor Py yrE (1), WLOADCI) ,WLX CT > 


.35 CONTINUE 
4 34 CONTINUE 
28 FORMATC! ACTIVE SOIL X-DIRECTION' tae G,146%,FS.2,/ 
+,! ACTIVE SOIL Y-DIRECTION' ,&X,FS.a,146%,F8.2 
4 2% FORMAT C! PASSIVE SOIL X-DIRECTION', Tj FS.B, 16X,FS.2,/ 
| +,! PASSIVE SOIL) Y=DERECTION! Y7xPFRUeRLEX FS. 2) 
24 FORMAT(' WALL AND SCIIL RESULTANT',S%,F8.0,14%,FS.2) 
.2& FORMATO! LOAD NO.',Iz,' (BACKFILL)', 10%, FE.0,14X, F862) 
i 29 FORMAT(! LOAD NO.',IZ,' TYPE*)IZ,' (CON WALL) ')4%,FS.8,146%,F5.2) 
~ 36 FORMATC! WATER FORCE ABOVE TOE',1@%,F8.0,14%,FS.2,/ 
+,! WATER FORCE ABCVE HEEL',9x ow, 18%,FS.2) 
| IF(IWALL.LE.@.0R.IAIP.GE.1)G0 TO 7a@ 


© COMPUTE FACTOR OF SAFETY FOR OVERTURNING AND FOOTING FRESURES 


IC: 
| 
i FOSO=OVERTURNING MOMENT 


C FOSR=RESISTING MOMENT 
iC 
| FOSt=KFAMAX*#RESDX 


FOSR=YFAMAX*#RESDY+SELOCK *#R XBL. 
IF (IBE.ED. 1) FOSO=FOS0+KFAMAX1*RESDX 1 
i] IF(IEGB.EQ. 1) FOSR=FOSR+YFAMAXL#*#RESDYI 
| NT=YFAMAX+SELOCK : 
IF(IBB.EC. 1) MTHnT+YPAMAX 1 

QH=FOSR 

| IF (IWATER.GE.1)07T=07T-WUFS 

; IF (CIWATER.GE.1)FOSR=FOSR+WFL eaWF LF 

IF (TWATER.GE.1)FOSO=FOS0+WEL*WELR 

IF (NOCLLE.@)G0 Ta 74 

pa i> T=1)) NOCL 
FOoSU=FOSU+TLOAD( 1) ¥TLOADZ (1) 





718 CONTINUE 


— eel ns Lemme 
fPad Ss a i Sh 


cy 


ol 


os i Se a a 


= 


ir. 





ES ED Se a ae — pee _—_ 4 gL a 


781 CONTINUE 
TRANCELLES@ aco TEs Se 
BeeyYeeatsi, NCL 
IF CWLOADCID.LT.@. )FOSO=FOSO-WLOAD (CT) *#WLX CT) 
IF CWLOAD(CI).GE.@. FOSR=FOSR+WLOAD CI) *#WILX C1) 
SECNT NRE CI? EQLZOT=QT+WLOADCT ) 
IF CNTYPECT) «EQ. 2) QH=QH+WLOAD (CT) #WLX C1) 
Yes CONTINUE 
782 CONTINUE 
FOSUV=FOSR/FOSO 
Wiest GASEbs 2) eteroSRsF USO AAgT ) 
QHE =) 


MT=TOE FRESSURE 
QH=HEEL PRESSURE 


QT =QHE/EASEL*(1.+(¢6,.#0TE/EASEL ) ) 
WH=QHE/BASEL#(1.-(a&. *QTE/GBASEL.)) 


COMPUTE -FACTOR OF SAFETY FOR SLIDING 


FISS=KFARMAAK 

FOSRS=SELOCK+Y RAMA 

IF (TBRJEQ. 1 FOSS=FOSS+KFAMAX 1 

IF (IGE.JEQ. 1 FOSRS=FOSRS+YFAMAX 1. 

Pe ANCE. UE ww TO fad 

Deere ai=i NC 

TPAN TYRE tl) EQ. 2) POSRS=FOSRS+MLGOAD( I) 

Pari et 1) EU. 1) POSS=FouSS-wLoAD< 1) 
Tosi CONTINUE 
Yad CONTINUE 

IF (NGCL ..LE.@)GO TO 7408 

Do 741 T=1,N0cL 

FMSS=FOSS+TLOAD(T) 
741° CONTINUE 

IF CIWATER.GE. 1) FOSS=FOSS+WEL-WFL 
{40 CONTINUE 

FISS=(FOSRS#FAC) /FOSS 


or omer ACnoS OF SAFETY AND FOOTING FPRESURES 


WRITE(G, 54 FOSOV ,FOSS 


B4 FORMAT(/,' FACTORS OF',/,46%,'SAFETY:',/,14%, ‘OVERTURNING' , 3%, 


-F5.2,/,14%, 'SLIDING',7%,FS.2) 
WRITE( 4,89) 07, OH 

A9 FORMAT(/,1%, ‘FOOTING',/,5%, 'FRESSURES:',/,14¢%,'AT TOE ',F 
~,' PSF',/,14¢%,'AT HEEL ',FS.@,' PSF',/) 

70 CONTINUE 


mw 


Poa ewmeri LUN 14 PRINT OUTPUT 


WRITE(4,*%)' WOULD YOU LIKE A HARD COFY OF YOUR RESULTS? ~~ ' 
WRITE(&,*)' YES ENTER 1, NO ENTER @. 
READ (Fi, #) IPRINT 

IF(IFRINT.LE.@)GO To 755 
OFEN(&,FILE='FRN'! ) 

WRITE (4,8) TITLE,PHI,G1,DELTA, FAG 

IF (IWALL.GT.@. WRITE (4, &) BASEL 
WRITE(4,44) 

DO 426 1=1,NOL 
WRITE(G,45)1,%(1,1),¥(1,1) 
WRITE(G,43)1,%(1,2),Y(1,2) 


i 429 CONTINUE 


WRITE(&,319)XSTART, YSTART 
IF(IBR.EQ. 1 WRITE(G,8S11)XSTARL,YSTARIL 





m1 
es 
[3 


Ts 
ree! 


WRITE(4,812)xSS, YSS 

FORMAT (SX, 'BACKFILL FAILURE FOINT' 7M, FRE, 5X, Fe.2) 
IF(NOCL.LE.@)G0 To 751 

WRITES, 2) 

DO 7E@@ T=1,NOCL. 

WRITE(&,11)1, LOAD(1) ,xM@(1),¥OQCT) 

CONT INUE 


CONT INUE 

PP Ca WARE VE eee MG. LE. wIGO. TO The 
WA ETE Cee) 
OF (Sha 1 NCL 

PRET ECe oe Petre ClO MLUADCI) WL ID 


Es CONTINUE 
& CONTINUE 


TPC IMA TeR eleanor lie re 1 

WN tera) Ole ven LY 

CONTINUE 

WRITE C&, 27> 

Peer tie towel eee) CAGIVE BREAK s 

IFC IBE.EQ.1IIWRITE( 6,25) KPAMAXK1,RESDK1, YFAMAXI ,RESDY1 
PreerebeeiWe ie Whee, e)  BE LOW EREAK Ss! 
IF(TAIF.LE.@)WRITE (CE, 28) XPAMAXK,RESDK, YFAMAXK, RESDY 
IF(TAIF.GE.1 WRITE( 464,25) XPAMAX,RESDX, YFAMAX,RESDY 
Sal ee Aes eth 2 ars 2 Reba ROA EH 

TR ATWATER. EG. LOWRITEVG Se) WFL, WELR, WEL , WELR 

LTP eno: ‘ane Tiere 

Dittmar) Lal ynocl 

Hiei IAD T Te. TLUADZ< 1) 

CONTINUE 

CONT T NUE 

LRANCE GE URS IWALL.LE.@IGO TO 774 

DION? tsar = 1), NOU 

nba Goyer tyre CL» WLOADC I) ,WLxCT) 

CONTINUE 

CONTINUE 

tr UIA Le Oreo ny 4 

WRITE CG, 24 F0S0¥ Foss 

HR TRt&, S770 , Qe 

CONTINUE 

GUMSE(G) 

CON TT NUE 


UF OPTION TO CHANGE INFUT AND RERUN 
WRITEC@,*)' DO YoU WANT TO CHANGE YOUR INFUT AND RERUN' 


Petite toy e AY CoE NIER 1, NO ENTER @. 
READ CE, #) MCHE 


PSRONGHa. GE tb) Garo’ 73 


a7 ar 
END 


EMRE KEKEEEKHKRERKKHR KKH RE KHKAEKKHEE KEE MESHES KR EEKREHERRE KEKE ER KRAMER 


¢ 
C 
C SUEROUTINE WALL 
CC 
3 


EERE ERAERAR ARR GEE REE KHAEKHKHEER HERE KREHRRKRAKREERRKKRAKHREERKEERREERKRER ERE REESE 


C THIS SUBROUTINE ACCEFTS THE WALL CONFIGURATION INFUT AND 


CG ANY 


CONCENTRATED LINE LOADS ACTING ON THE WALL. IT ALSO 


C COMPUTES THE -FORCE AND MOMENT ARM OF THE WALL FOR THE 
C OVERTURNING AND SLIDEING FACTORS OF SAFETY 


SUBROUTINE WALL 
Someries yt ely? yet, 2) HCG), Y¥CGCS9) , KOCIG) ,YOC1Le) 


~,PAC180) ,XLC1M) ,YLC1@) , AR (2) ,LOAD( 1m) 4X Seta 





—XSTART YSTART XTOR YIUP GL ALPHA PHI DELTA FAC SELOCK 


OE eee eee 


-, ITIWATER,WEACE, NOL, NOICL, be: ALE, /LN )PAMAX , RHOMAX , RESDX fRESDY , NCL. 
+, BASEL ,NTYFE(S), WILOAD CE), WL 8), NCH,FABL,RABL,CGK,CGY 
DIMENSION BLOCK (2) , XBL C20) 


o | 
ae | 


4 ates ; me 


CHECK IF CHANGES ARE BEEING MADE 
PONG Ee Ge TOT 
Peek TSE SNPUT te ROCE DURE 


WRITEC&,#)'TO INPUT THE WALL CONFIGURATION DIVIDE THE WALL INTO’ 
Bie ep eee Cres PLD CPANG IE St AND? RIGHT PLA CANGUES., LAGE THE ¢ 
WR TEts, =) BUCKS USING I THE (\FOLLUMINGY GUIDE . ' 

Aa ee, mE YOU MUG TALS BCUCKTANY SOIL SECTIONS WHICH ARE NOT" 
alee, OME IN THE PRESSURE ANALYSIS. Siuil AND CUNCKETE® 
Mei oii CANWEE, DISTINGUISHED BY THEIR UNIT WEIGHT. ba at 
Wes, =) WATE TSRPRESENT USE BUOYANT UNIT WEIGHT. ' 

WRITE CG, 1) 


i RMIRMAG O/e77,. NOG EC RAAT) Pe OP IRS eros Or A TRIANGLE CA? -*, 
4 ARUN Toe ripe elon f ANGLE. ae 
tar Ty ‘ i i Ee A : ¥ 
+/ 1M! HELE LE EERE AKER EE HEE x ERKREREEE |, 
f + Ay ee sl | % % H% % ay aN 
~ LT yA Peg) % % % + cae oe 
rene, LEN | % THEE bod ¥ % 7 Ce 
stare a * Ye He ae " Paar 
“Ae er % % % ais. Peden ages ie ae 
a ee % it % % ee 
ear eis ae KRAEMER KE KLE REK KER KEKE HERE EEE % 
oar) Pat hae A a A ay ane 
ASIN A 


4.) CONT TINUE 
WAI Ge, es) HUW MANY BLOCKS ARE NEEDED TO MODEL YOUR WALLY ' 
rit cee” LSE ET) OT) eh. | - 
READCE, *# NELOCK 
POI GT. ee WRITE (4, 2) SURRY NO MORE THAN 28, TRY AGAIN’ 
TP(NBLOCK.GT.26)G0 TO 40 
Bee ome oe ONY NECESSARY GLCINFUT THE Y-COORD OF POINT B' 
Peewee eo ree aOR UP POINT CC. FOR THE, BLOCK, ‘TYPE 
Hew wee or 1 PUR RECTANGLES AND & FUR TRIANGLES. ° 
SUXEL =. @ 
FHEL=aS. 
SELOCK = 4. 


7 


READ IN WALL BLOCK UNITS 


ee: 


DO 1g I=1,NELOCK 
WRITE(&,2) I 

¢ FORMAT(//,1%, ‘INPUT VALUES FOR BLOCK ',13,/7,1%) 
WRITE (&,%)' X-COMRDINATE, Y-COGRDINATE OF FOINT A | 
READ(E,*) XA,YA 
WRITE(&,*)' Y-COORDINATE OF POINT B ° 
READ (5, *) YE 
WRITE(&,#)' M-COORDINATE OF FOINT GC | 
READ (FR, *#) ¥C 
WRITE(&,*)' BLOCK TYFE, UNIT WEIGHT = ' 
READ(S,*) ITYPE,UNWT 
BLOCK (1) =ABS (MC-XA) ABS (YB-YA) XUNWIT 
IF (ITYPE.E). 2) BLOCK (1)=.5*BLOCK(T) 
MBL (1) =(MC-A) /E+KA 


IFCITYPE.EM.2.AND.KA.GT.XC) XBL (1) =KA- (CKA-XKC) *. 332 
IFCITYPE.EQ.2.AND.XA.LT.XO) XEL (1) =XAt+0KC-KAD #3532 


SUXELSSUAEL AXEL CT) 
FXRXEL=EBLOCK (1) *#4EL CT) +F XBL. 
SELOCK =SELOCK+ELOCK (1) 


13 CUNT TINUE —— 


— eatin Te —_ er et 


WRITE(G,*) ‘WHAT os THE WIDTH oF YCIUR FOCITING? (feet) : 
READ(E,*) BASEL 
i (NCO Els SRE TURN 
ii CONT TNUE 
SFREL=FREL/SURKEL 
REXEL SF REL /SBLOCKE 
AECL el, cot Sos eee gs Pk 





rnin yy? 5) FTA VERT LOCAL RESULTANT «0 0 wae ee Sygfee,* pounds / 
es ee eo PO ere Mere Wowie Sy rca cy) = FP eAG! y / 7s) 
BR Pte 0G, ) “DU THESE VALUES LOUK KREASUNABLE? 
Rett eee oma mie MO EN Troe ey) 
READ(H,%) NHELP 
iM SL! hk kg ll ag 2 a a © 
He Eye) CHECE YOUNR INFUT 14 
PL Ee ha ge |e 


- CHECE "PURGES FRUM BLOCKS 
J 


DO 2@ I=1,NELOCK 
i WRITE(6,4) 1,BLOCK(1),1I,¥BL¢1) 
4 fc LM, (FORCE OF BLOCK! ,I@,' 15 ',FS&.2,' pounds',/ 
(1%, 'MOMENT ARM OF BLOCK! ,I3,' IS ',FS.2,' feet’) 


| ai 2 CNT INUE 
= 


C CHECK IF CHANGES SHOULD BE MADE 


C: 

| WRITE(4,*)'DO YOU WANT TO MAKE A CHANGE? 
WRITE (&,*)' YES ENTER 1, NO ENTER @. 
READ CE, ®) NCHS 

| IF(NCHS.LE.@) GO To Ze 

34 CONT INUE 

WRITE(&,%) WHICH BLOCK? 

| READ (RE ,*) TJ 
WRITE(4,%) 'INFUT THE NEW FORCE AND MOMENT ARM 
READ (SR, *#) FP GELOCK, FXBL 
BLOCK (IJ) =P BLOCK 

| MEL IJ) SF XBL 
WRITE(4,%) 'DO YOU WANT TO MAKE ANOTHER CHANGE? 


WRITE(6,*)' YES ENTER 1, NO ENTER @. '° 
| READ (8%) N 
: IF(N.EQ.1)G0 To 31 
SUXEL=a. @ 
FXBL =a 
SBLOCK=@. a 
DO iz T=1,NBLOCK 
FXBL=BLOCK (1) *XBL(1)+F XBL 
| SUXBL=SUXEL+XBL (1) 


SBLOCK= SELOCK+ELOCK (1) 
Le CONTINUE 


i| ao Tt) 41 
2 CONTINUE 


Pome sels. G TO: 2d 


S 
| C® INPUT CONCENTRATED LINE LOADS ON WALL 
& 
41 CONTINUE 
| WRITE(G,*)'IF YOU HAVE ANY CONCENTRATED LOADS ACTING ON THE ' 
WRITE(&,%#) 'WALL AT AN ANGLE, INFUT IT AS TWO LOADS, ONE IN THE' 
WRITE CG,*) (HORIZONTAL AND CINE IN THE VERTICAL DIRECTIONS. ’ 
| Bete te, e) ENTER THE TOTAL NUMBER OF LOADS, IF NONE ENTER @. 
READ CE, *# NCL 
IF (NCL .GT.S)WRITE(4é,%) 'SORRY NO MORE THAN &, TRY AGAIN' 
IF(NCL.GT.8)G0 To 41 
| Pana GO TO 21 
Wit eteye) “HORTZONTAL LOADS ARE TYFE 1,VERTICAL ARE TYPE é.' 


EG) eT THEM AS FOSITIVE FOR DOWN AND RIGHT AND NEGATIVE! 





WRITE(&,*) ‘FOR UF AND LEFT. ONLY INPUT THE ¥-CCIRDENATE FOR 
WRITE(4,*) ‘VERTICAL LOADS AND Y-COORDINATE FOR HORIZONTAL LOADS. 
Do 22 J=1,NCL 
WRITE (S,5) J | 

5 FORMAT(//,1%,'INFUT TYFE, LOAD(CIb.), X OR Y-COORDINATE FOR LOAD' 


NTYPE (J) =NTYPEF 
WLOAD (J) =WLOADF 
WLS CJ) =lAIL 
CONTINUE 
CUNT I NUE 

RETURN 

END 


| +,13,/) 
: READ (Bi, *)NTYPEF , ALOADF , WLXP 





SHEE EERE HEE EEN EEE EEE HEE EEK EER KKM ER EERE HEME KKK EEK KEEHREEEEE 
; SUBROUTINE ACTFAS 
NE EME MEE KE EE EEE HHI EEE EEK EE HEE EREE EER ERE ER KEK KER ERR KEELE EM REEE 
.. 
a See Ne eerie THeEVAGWIVE IR FASSIVE FRESSURE RESULTANT 
eo Pe PURCE RULYGONS PRESENTED IN J. &. BOWLES 

C FOUNDATION ANALYSIS AND DESIGN 





ws 

|| SUERQUTINE ACTFAS 

' COMMON XC18,2),Y¥C18,2),Z¢18,2) ,MCG( 20) ,YCG (2H) , MOC1H), YOCIa) 
~ PAC1G8),XL(19),YLC1@) , AR (28) ,LOAD( 18) ,XSS,YSS 

|| ~ XSTART, YSTART, XTOP, YTOP, GI, ALPHA, PHI, DELTA, FAC, SELOCK 

: ,IWATER ,WEACK, NOL ,NOCL, IA, IF,LN,FAMAX, RHOMAM,RESDX, RESDY,NCL. 
+ BASEL, NTYPE CS) VAILCIAD CS) , bl % CE) ,NCH, EXEL, RMEL, COX, CGY 


Do igi N=1,19¢ 
; 141 FACN)=8.@ 


RHOMA R= 2. 2 


RHt= a, 2 
a FAM AIS = 2. 3 
ShiNt=. i 
EBIGNO=29 97999999 , 
("| IF CIF.GT.S)FAMAK=1 98089, 
WEI GHT=4, 4 
TAREA=%. 4 


TAML=2. 
a CS=4.0 
(32) TOP 

Y3=VTOP 

a PISPHI/57 .2958 
DE=DELTA/S7.23 

_ ALSALPHA/S57 «23 


s 
a: START LOOF TO INCREMENT RHO FROM MAX TO MIN VALUES 


If=1 
a J=1 
JJl=¢ 
AL=H.B 
Zi YI=8.9 
= A=4 4G 
B=8. 3 
IF (ALFHA.GT .79.)RHO=159.-ALFHAt+E. 
IF (ALFPHA.LE. 78. RHO=98.-4, 
leita fe RHOR98.-15. 


om 


LIMITED TO 168 ITERATIONS 
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DO £88 T=1,198% 

RHO=RHO-1. 

iereoriliei ti. (PHi-2.)SAND.IA.GT.@)G0 TO- 24 

pe CROCCO. cab ect) Saga ie ale TO 24 

RH=RHO/S 7 PSs 

B=(SINCRH) /Cos (RD) 

lob sa Ae ea ae TY 7 GES era a Oe Ba Oe 
=(YSTART-Z(J,1)-B*#xXSTART+A#K (J,1))/(A-B) 


C 
f: peor POR LINES INTERSECTIONS 


TPAARS (Reet), 2) LE. SMNOD KITE CS, 3 
ara tons Ji, a0 ERM 3) OMT SEK C), 2) 

iF AGO. MIE AS eke SPN ANDLOSLTG NOL) J=J+1 
IPR LE NOLS WeSRe NI Am Ce eC 1D 

hee Ake TRS Cy 2) ¢ 


CC COMPUTE ACTUAL RHO AS BASED ON #%,Y COORDINATES 


7 
i 1s 


LPAR RIE RSTART) LE... XI=KSTART+. Bagi 
RHO=CATAN(C CYI-YSTART)/(XI-XSTART) ) #57 ..2 758 
RH=RHO/E 7. SPes 


ae 
a: SUBTRACT WATER FROM WETGHT OF WEDGE 


IFA IWATER.LE.@)GO TO 41 

WINE W = WALA TER 

IF (CALFHA.EQ. 7M. )DDW=8. a 

IF CALFHA.GT.?7@. )DDW=-.5*( (WEACK~YSTART )##2) 


Seco aol. ayy P/COS CAL <1 Gea) ) 


IF CALPHA.LT.?@.)DDW=. 5% ¢ (ABACK -YSTART ) ##2) 


So leer Pe AIT ONS re rm ALY 


GW =z . +t 
Ame A= Det CWEACK -YSTART I #*#2)#(¢S5INC1 S787 -RH)D/COS (1 B77 -RH) ) 
WW ATER=ARE AW #GlI+ (DDIAEGIA )D 


i 
a: COMPUTE THE AREA OF THE WEDGE 
* 


44 


| ie 


43 


DeRe Pek SKS TAR TEAS) CY START ~¥ 20 ACK St+K ID aECY SRY I= OXSTARTHHI D* CY 


Jo Ab YI) 9 


TAREA=TAMI+DAREA 

TAML=TARIEA 

WE TGHT=DAREA*#GI+WE TIGHT 

IFC TIWATER.EGM. 1) WETGHT=WETGHT-WWATER+IARINEL 
CONT INGE 


rae 
a: Porro gewre VE OR PASIVE FRESSURE 


PAC IIT) =HEIGHT*SIN(RH-FID/SIN(GS.1415%-AL+DE-RH+F I ) 
IF (IF .GT.@)PACII) =WELGHT*#SIN(RH+PI) /SIN(S. 14199-AL-DE-RH-FT) 


| C TEST FOR MAX PA FOR ACTIVE AND MINIMUM FASSIVE 


Rea oI) Gln TOMTS 
IF(FPACII).LT.FPAMAX.AND.FPACII).GT.8.)FPAMAK=FACTI) 
IF (PAMAX.JEQ.VPACT ID ORHOMAK=RHO 

IF (FP AMAXK..NE.PACIIONIGO TO n& 

inn Cite v 

IF (PACTII)D.GT.FPAMAKIFAMAK=FACTI) 

IF (FP AMAXK.W EG. PACT IO) DO RHOMAX=RHM 

IF (FP AMAX.NE.PACIIIVIGO TO SS 


\é NF oe NS 
rs EMEm FX 


YMAK=YI 
AMAXK=TAREA 
WMAX=WE LGHT 
CSMAKSCS 











C CHECE FOR INCREASING OR DECREASING VALUES OF FA 


* 
1 ae AP VIA GT YSTGU- TOs? 
FERCHL. ZEePAMAK 
| IF (NOL JEW. LIFERCHAL. Geer AMAK 
| PeVPACT OP GT PERC TGU Tue eo4 
Go TO #2 
my FERC=,.7E#F AMA 
i IF (NOL JEM. LT FERCHM. Ver AMA 
PP er ero. Le sO. POURS PACIID CLE... GO TO SS 
PRPAPAGCI SCV ER FERC GO TO 24 
a3 CONTINUE 


Shilo XS 
Pht FS 


2=Y 71 
17a JJ1=¢ 
Tl=T1l+i 
268 CONTINUE 
a4 CONTINUE 
WIWA TER =i . 
BIAINE = 2, 
RETURN 
END 
OAK EH EA KHER KKH ERK K ERE H HR EHH IEEE HERRERA REE HEH REE H ID lial shales 
SUBROUTINE CGCMAN 
CHEE EE EKER EEN EHH KEE KEK EEE EEE EEE EH EKER EEE ENE EERE REEL EE EREEE 


ie 


i. 
( THIS SUBROUTINE WILL COMPUTE THE CENTER OF GRAVITY OF THE 
eA ONE OGE PANDYDETERMIN THE POINT Or APPRICAT ION OF “THE 
ae | Dev ePASS IVE SOIL PRESSURE RESULTANT 

Es 


SUBROUTINE CGCKAN 
Penis iat Clo ye) Ao) ACEO Y¥CGI eH) SALI 1), YOCIe) 
fl FPATIME) VALUIO) ,YLCIG) ,ARCTEO) ,LOADCIM) ,KSS,YS5 
=| XSTART, YSTART, XTOF, TOP ae ALFHA, Pol, DELTA, Rete obL Le 
», IWATER,WEACKE, NOL, NCICL, tA, IF, LIN PAMAX , RHCIMAX ,RESDM, RESDY, NCL. 
Hl ar BASEL UNTYFE ( &) WLOAD CS) , MIL a ar A Co iad a Od RMBL, CGA, CGY 


DIMetorUMNeAS(io,2), Yatlo,e) 
eee Ge. CE The SOL EEHIND THE WALL 


12g 

CGH= 2 

CGY=4. 9 

AL=ALFPHA/E? 275 
_ RHM=RHC eh aa Arie Let Bust 

PierPHi safe yas 

TE (ALFHA.E0.90.)AR(L)=.0 

TF CALPRA.GT.?8.)AR(1)=-.5%((YTOP-YSTART )**2 > 
“Poorinenicns earar ry CUS (ACA b VOTO }) 

TF CALPHA.LT 29. DARC1) =-. 5% ( CYTOP-YSTART )*#2) 
"StI Ae. .oter ye COS CAL“T Sar h) 

AR(2)= 4% (CYTOP-YSTART ) ##2)*#(5INC 1.2 707-RHM) 7 
Sire Per ee RHI 7 ) 

KCGC1)=XSTART+( CX TOP -ASTART ) 7/3.) 

YCGC1)=YSTART+( 2% (YTOFP-YSTART) 7/3.) 

AUG(2)=ASTART+((YTOP-YSTART)I*#(SIN(G1 .8797-RHM) /COS 
“hires Pe rernHnM) )/3.) 

Woate2=YSTART+(I2 .*#(YTOP-YSTART )/3.) 


C SUBTRACT OUT THE WATER IF THEIR IS ANY 








IF (ALPHA, EC. wa , VAR (S)=@. gh 
IF (CALFHA.GT.?&@.AR CS) =.5#¢ (WEACE -~YSTART) ¥¥2) 
Seo Ni Ave Wore eS CUSLAL-1 S77 )) 
LF CALPHA. LT. PSL ARCS) =- aoe a eo Pe 
Peery tte et AL POLST 1 ear -AL ) D 
AR (4) =-.,5% ((WEACK-YS TART) ##2)#(SIN( Pee “RAM 7 COS( 1 Sas -ReM 
KRCG CS) =KSTART+( CHEACKE eA eaten VEOLINT AON Leet ied “ALL JS 
Pew evAba Carter —ALLI 2} foe) 
REG Cs aYS TART +i 2 C(WBACK -YSTART )/73.) 
KOGC4) =KSTART+( CWEACKE-YSTART)/(SINC1 LSTO7- HM) Pisdot ola fe Rea 
ays 2 
YOGC4)=VYSTART+(2.*(WGACK-YSTARTI/&.) 
Ree CONTINUE 
Jz 
IF CIWATER.EM.1)J=4 


PeCUMPUTE THE C.G. FOR GACKFILL ABOVE THE WALL 


RIiM=SINCRHM) /CO5 CRHM) 


il ReMeigpeek ge are LY CRT Le) ACT, 122 

Peek oped CN IMeKS TART IU -CYC1, 1d CReEMER (1,1) 22/2 CREM-RIM) 

Too = at Ana et ACL, 2) -ASTART 248 iM)) 
Hl Ge they Odie eek Vly, HAND. (RAMS CX Odie DE KSTART I GE.Y4t 1g 2) -YSTART }) 

Pall 1 O oii 

LN=s 

Bi? CONTINUE 

ld LN=LN+ 1 
lee Peewee = OLN) UE es AEN PEKIN, 2a race 


C: 
la: Peet ei Ne ERSECTS THE FAILURE PLANE 
=: 


IF ((RIM* (X(LN,2)-MSTART)).LT. (Y(LN,2)-YSTART) GO TO S7¢ 
MS (LN, 2) =X(LN, 2) 

YS(LN,2)=Y(LN,=) 
REM=(Y(LN,#)-Y(LN,1))/(X(LN,2)-X(LN,1)) 


a i ae 


Webern (Me RUIN, OF INTERSECTION 


= 
cy 


¥(LN,2)=( (YSTART- (RIM*®XSTART) )-(CY(LN,1)-(REM*#X% (LN, 1))))/(REM-RLM) 

Y(LN, 2) =(YSTART+( (4(LN, 2) -XSTART) *RIM) ) 

¥SS=X(LN,2) 

YSS=Y(LN,2) 

JaJ+4 

AR(J)=.5*#(Y(LN,2)-YCLN,1))*(X(LN,2)-X(LN,1)) 
MCG(J)=X(LN,2)- (4 (LN, 2) -X(LN,1))/3. 
YCG(JS)=Y(LN,1)+(Y(LN,2)-Y(LN,1))/3. 

JaJ+1 

AR(JS)=(Y(LN,1)-YTOR) *(X(LN,2)-X(LN,1)) 
MCG(J)=K¢(LN,1)+(04%(LN, 2) -X (LN, 1))/Z.) 
YCG(J)=V(LN,1)+((Y(LN,Z)-Y(LN,1))/2.) 

JeJ+1 


SUBTRACT TRIANGLE GEHIND FAILURE FLAIN 


ei eg 


AR(J)=-. 5 CY (LN, 2) -YTOR) ##2* (TAN(1.5707-RHMM) ) 

MCG (J)=4 (LN, 2)- CCV CLN, 2) -YTOP) *#(TAN( 1. 8797-RHM) )/3.) 
YOG(J) =YTOR+ (CY (LN, 2) -YTOFD/3.) 

X(LN, 2) =XS(LN, =) 

Y(LN,2)=YS(LN,2) 


[| eo. To 671 
| a? @ CONTINUE 


J=J+1 
Breer CY Ci ive Y CLIN, Le CKCLN, 2) -ACLNY 1?) 
| | Meat I =ACLN, 2) -CRXI(LN,SZI-KCLN,1D0/3. 


Pokey tUN, Je eCY(LN,2)-YCLN,1))/3. 


| J=J+1 
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Cyoyor- on 


AR (J) = CY (LN, 1) -YTOP) *(X(LN, 2) -X (LN, 19), 
MCGCJ)=X(LN, 1)+¢(XCLN,2) “(LN 1))/2.) 
YCG(J)=Y(LN,1)4((Y(LN,2)-Y(LN,1) 0/26) 
IF(LN.GE.NOLIGO TO S71 

qo To S79 

CONT INUE 

WARTX=@.@ 

WART Y=. 

GMEcz.4 

GIA=GI 

TOTAR=@. a 

Dua aneland yd 

IF (IWATER.GT.@.AND.I.GT.2.AND.I. LT.5)6 j1A=Gi 
WARTXSWMARTX+AR (1) *#XCGC1)*GIA 
WARTY=HARTY+AR(1)*YCG(1)*GIA 
TOTAR=TOTAR+(AR( I) #GIA) 

GIA=GI 

CONT I NUE 

CGM=WARTX/TOTAR 

CGYSWARTY/TOTAR 

LOAD ()=TOTAR 


Pereeriva fhe FOLNT Gr APPLICATION OF THE ACTIVE DOR FASS RESULTANT 


RHM=RHOMAK SET YE: mb 

AC=ACKIS ( (XTHP-XSTART) / (SORT (( CORA SCAR Ieee cer ty PUP VS TART 6% 29.07) 
AA=TANCAC) 

AB=TAN CRHM) © 

BA=YSTART~ (CAA#ASTAINT ) 

EE=CGY - CAR *CGH ) 

P(t Abe nr -RSTART)O LE. . Sd RESDY=XSTART 
PEAR a NOP -AGTART) ) LE... a RESDH=AERSASTART+BE 
Paes Clim ano PART) LE RETURN 
RESDY=(EBE-BA)/(CAA-AE) 

RESDX=AE#RESDY+EER 

RETURN 

END 
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